home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / CD-ROM Tutorial.cpt / CD-ROM Tutorial / card_25214.txt < prev    next >
Text File  |  1990-04-04  |  3KB  |  166 lines
  1. -- card: 25214 from stack: in
  2. -- bmap block id: 51395
  3. -- flags: 0000
  4. -- background id: 29299
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8. on openCard
  9.   hide menubar
  10.   set hilite of card button "black" to true
  11.   global wo,map,browse
  12.   if wo is 1
  13.   then
  14.   set hilite of card button "key word" to true
  15. else
  16.   set hilite of card button "key word" to false
  17. end if
  18. if browse is 1
  19. then
  20. set hilite of card button "browse" to true
  21. else
  22.   set hilite of card button "browse" to false
  23. end if
  24. if map is 1
  25. then
  26. set hilite of card button maps to true
  27. else
  28.   set hilite of card button maps to false
  29. end if
  30. set lockScreen to false
  31. end openCard
  32.  
  33.  
  34.  
  35. -- part 1 (button)
  36. -- low flags: 00
  37. -- high flags: E003
  38. -- rect: left=191 top=222 right=244 bottom=300
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Key Word
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   set lockScreen to true
  50.   go to card id 51689
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56. -- part 2 (button)
  57. -- low flags: 00
  58. -- high flags: A003
  59. -- rect: left=191 top=264 right=286 bottom=301
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Browse
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   set lockScreen to true
  71.   go to card id 55298
  72. end mouseUp
  73.  
  74.  
  75.  
  76.  
  77. -- part 3 (button)
  78. -- low flags: 00
  79. -- high flags: E003
  80. -- rect: left=192 top=303 right=325 bottom=302
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Maps
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   set lockScreen to true
  92.   go to card id 59443
  93. end mouseUp
  94.  
  95.  
  96.  
  97.  
  98. -- part 4 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=152 top=111 right=131 bottom=347
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 21
  106. -- text size: 12
  107. -- style flags: 256
  108. -- line height: 16
  109. -- part name: 
  110.  
  111.  
  112. -- part 5 (field)
  113. -- low flags: 00
  114. -- high flags: 2000
  115. -- rect: left=86 top=164 right=194 bottom=424
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 21
  120. -- text size: 12
  121. -- style flags: 4352
  122. -- line height: 16
  123. -- part name: 
  124.  
  125.  
  126. -- part 6 (button)
  127. -- low flags: 00
  128. -- high flags: 4000
  129. -- rect: left=86 top=164 right=194 bottom=424
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: black
  138.  
  139.  
  140. -- part 7 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=29 top=287 right=342 bottom=125
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: New Button
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   go to card id 6474
  155. end mouseUp
  156.  
  157.  
  158.  
  159.  
  160. -- part contents for card part 4
  161. ----- text -----
  162. Simulation
  163.  
  164. -- part contents for card part 5
  165. ----- text -----
  166. Click on your choice below for a simulation.